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-- file: Output. mesa 

-- edited by Sandman on August 3, 1978 11:50 AM 

DIRECTORY 

lODefs: FROM "iodefs". 
OutputDefs: FROM "outputdef s" , 
SegmentDefs: FROM "segmentdef s" , 
StreamDefs: FROM "streamdef s" , 
StringDefs: FROM "stringdef s" , 
TimeDefs: FROM "timedefs"; 

Output: PROGRAM 

IMPORTS SegmentDefs. StreamDefs, StringDefs, TimeDefs 

EXPORTS OutputDefs - 
PUBLIC BEGIN 

outStream: StreamDefs. StreamHandle <- NIL; 

GetOutputStream: PROCEDURE RETURNS [StreamDefs .StreamHandle] ■ 
BEGIN 

RETURN[outStream]; 
END; 

PutTab: PROCEDURE = BEGIN PutChar[IODef s .TAB] ; RETURN END; 
PutCR: PROCEDURE « BEGIN PutChar[IODef s .CR] ; RETURN END; 

PutChar: PROCEDURE [c:CHARACTER] « 
BEGIN 

ou tSt ream. put[outSt ream, c]; 
END; 

PutString: PROCEDURE [s:STRING] » 
BEGIN 

i: CARDINAL; 
FOR i IN [0. .s. length) DO 

outSt ream. put [outs tream,s[i]]; 

ENDLOOP; 
END; 

PutSubString: PROCEDURE [s:StringDefs. Substring] ■ 
BEGIN 

i: CARDINAL; 
FOR i IN [s. offset, .s.offset+s. length) DO 

outStream.put[outStream,s.base[i]]; 

ENDLOOP; 
END; 

PutTime: PROCEDURE [t: TimeDefs . PackedTime] ■ 
BEGIN 

OPEN TimeDefs; 
s: STRING *■ [20]; 
AppendDayTime[s,UnpackDT[t]]; 
PutString[s]; 
RETURN 
END; 

PutNumber: PROCEDURE [val : CARDINAL, format: lODef s.NumberFormat] » 
BEGIN 

i: CARDINAL; 
neg: BOOLEAN ♦- FALSE; 

fill: CHARACTER <- (IF f ormat . zerof i 1 1 THEN '0 ELSE ' ); 
s: STRING ♦- [10]; 
IF INTEGER[val] < AND -format . unsigned THEN 

BEGIN val ^ -INTEGER[val ]; neg ^ TRUE; END; 
StringDefs .AppendNumber[s , val, format . base] ; 
i <- s . length; 
IF neg THEN 

BEGIN 

i <- i + 1; 

IF format. zerofill THEN 
BEGIN outStream. put[outStream, '-]; neg.*- FALSE END; 

END; 
THROUGH (i. .format. columns] DO outStream. put[outStream, f il 1 ] ENDLOOP; 
IF neg THEN outStream. put[outStream, '-] ; 
PutString[s] ; 
RETURN 
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END; 

PutDecimal: PROCEDURE [val : CARDINAL] - 
BEGIN 

PutNumber[ val, [10, FALSE, FALSE, 1]]; 
RETURN 
END; 

PutOctal: PROCEDURE [val: UNSPECIFIED] ■ 
BEGIN 

PutNumber[va1, [8, FALSE, TRUE, 1]]; 

IF val -IN [0..7] THEN outStream. put[outStream. 'B] ; 
RETURN 
END; 

OpenOutput: PROCEDURE [root: STRING, ext: STRING] - 
BEGIN OPEN StringDefs, SegmentDef s ; 
i: CARDINAL; 
name: STRING ^ [40]; 
AppenclString[name, root]; 
FOR i IN [0. .name. length) DO 

IF name[i] - '. THEN 

BEGIN name. length ^ i; EXIT END; 

ENDLOOP; 
AppendString[name, ext]; 
outStream <- StreamDef s .CreateByteStream[ 

NewFile[name,Write+Append,Defaul tVersion] ,Write+Append]; 
END; 

CloseOutput: PROCEDURE - 
BEGIN 

outStream. destroy [outStream]; 
outStream ♦- NIL; 
END; 

END... 



